home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 15
/
Aminet 15 - Nov 1996.iso
/
Aminet
/
comm
/
bbs
/
dh_dokmanager.lha
/
dh-dokmanager
/
DH-Dokmanager.clrexx
next >
Wrap
Text File
|
1996-09-13
|
1KB
|
2 lines
/* Optimized with RexxOpt 1.8 */
if ~show('l','cl_rexx.library') then;do;if ~addlib('cl_rexx.library',0,-30,0) then exit;end;if ~show('L','rexxsupport.library') then;do;if ~addlib('rexxsupport.library',0,-30,0) then exit;end;gfxbase=showlist(l,'graphics.library',0,a);call forbid;FontAddress=next(gfxbase,154);Fontsize=c2d(IMPORT(offset(FontAddress,20),2));call permit;windowwidth=Fontsize*80;windowheight=Fontsize*30;windowY=Fontsize+1;WindowX=Fontsize;screen=CLGET_FrontScreenName();call close STDOUT;if ~open(STDOUT,'CON:'windowX'/'windowY'/'windowwidth'/'windowheight'/DH-Dokmanager1.4/SCREEN'screen,'W') then;exit 20;else;do;call close STDIN;call open STDIN,'*',R;call pragma '*';end;empanz=CL_GetText('Connectline:Rexx/Data/DH-Dokmanager/Daten/Empfaenger',emp)-1;betanz=CL_GetText('Connectline:Rexx/Data/DH-Dokmanager/Daten/Betreff',bet)-1;datanz=CL_GetText('Connectline:Rexx/Data/DH-Dokmanager/Daten/Dateien',dat)-1;do e=0 to empanz;do d=0 to datanz;do b=0 to betanz;if d=b then;do;say 'Versende Datei: 'dat.d;say 'mit dem Betreff: 'bet.b;say 'in das Brett: 'emp.e;say ' ';call CL_SendMailFull(AUTO,emp.e,dat.d,,,bet.b,,A);end;end;end;end;call CL_LogAdd(5,'CLMSORTIN','DH-Dokmanager: 'empanz+1' Verteiler - 'datanz+1' Datei(en)');close emp;close bet;close dat;exit